* net/tramp.el (tramp-default-file-modes) Remove execute permissions.
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 30 Jun 2009 15:23:36 +0000 (15:23 +0000)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 30 Jun 2009 15:23:36 +0000 (15:23 +0000)
lisp/net/tramp.el

index 9da9e314cd2c0e4a2699b547d93d7256add2edbd..84776f7f256624b08402009ca0e9ab29eb1b5a0a 100644 (file)
@@ -2789,8 +2789,9 @@ and gid of the corresponding user is taken.  Both parameters must be integers."
 (defun tramp-default-file-modes (filename)
   "Return file modes of FILENAME as integer.
 If the file modes of FILENAME cannot be determined, return the
-value of `default-file-modes'."
-  (or (file-modes filename) (default-file-modes)))
+value of `default-file-modes', without execute permissions."
+  (or (file-modes filename)
+      (logand (default-file-modes) (tramp-octal-to-decimal "0666"))))
 
 (defun tramp-handle-file-directory-p (filename)
   "Like `file-directory-p' for Tramp files."